home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ITS-CURTAINS.SDA / ITS CURTAINS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.2 KB  |  87 lines
  1. 0 REM *********************************
  2. 1 REM * TO USE IN A BASIC PROGRAM,    *
  3. 2 REM * DELETE FROM LINE 38 TO THE    *
  4. 3 REM * END, AND PUT LINES 14 THRU 36 *
  5. 4 REM * AT THE START OF THE PROGRAM.  *
  6. 5 REM * USE THESE SYS TO CONTROL THE  *
  7. 6 REM * CURTAIN'S MOVEMENTS.          *
  8. 7 REM * OPEN  SYS52800 CLOSE SYS52803 *
  9. 8 REM * RAISE SYS52806 LOWER SYS52809 *
  10. 9 REM * POKE 787 (1-255) TO SET SPEED *
  11. 10 REM* 1=VERY FAST & 255=VERY SLOW   *
  12. 11 REM* POKE 2 TO SET COLOR OF CHARS  *
  13. 12 REM* WHEN CURTAINS OPEN/RAISES.    *
  14. 13 REM*********************************
  15. 14 FORD=52800TO53161:READY:POKED,Y:NEXT
  16. 15 DATA76,127,206,76,76,206,76,44,207,76,114,207,173,33,208,141,203
  17. 16 DATA206,169,0,141,198,206,141,199,206,169,20,141,200,206,141,201,206
  18. 17 DATA169,6,141,202,206,32,206,206,238,198,206,173,198,206,141,199,206
  19. 18 DATA206,200,206,173,200,206,141,201,206,208,228,96,173,33,208,41,15
  20. 19 DATA141,205,206,165,2,41,15,205,205,206,208,2,230,2,165,2,141
  21. 20 DATA203,206,169,19,141,198,206,141,199,206,169,1,141,200,206,141,201
  22. 21 DATA206,169,6,141,202,206,32,206,206,206,198,206,173,198,206,141,199
  23. 22 DATA206,238,200,206,173,200,206,141,201,206,201,21,208,226,96,0,0
  24. 23 DATA0,0,0,0,0,0,173,203,206,172,199,206,174,201,206,153,0
  25. 24 DATA216,153,240,216,153,224,217,153,208,218,157,19,216,157,3,217,157
  26. 25 DATA243,217,157,227,218,206,202,206,173,202,206,240,20,173,199,206,24
  27. 26 DATA105,40,141,199,206,173,201,206,24,105,40,141,201,206,208,195,172
  28. 27 DATA198,206,174,200,206,173,203,206,153,192,219,157,211,219,32,30,207
  29. 28 DATA96,172,19,3,208,2,160,30,32,179,238,136,208,250,96,162,24
  30. 29 DATA142,204,206,169,219,141,84,207,169,192,141,83,207,173,33,208,41
  31. 30 DATA15,141,205,206,165,2,41,15,205,205,206,208,2,230,2,165,2
  32. 31 DATA160,39,153,0,0,136,16,250,32,30,207,173,83,207,56,233,40
  33. 32 DATA141,83,207,176,3,206,84,207,206,204,206,174,204,206,16,221,96
  34. 33 DATA162,24,142,204,206,169,216,141,140,207,169,0,141,139,207,173,33
  35. 34 DATA208,133,2,165,2,160,39,153,0,0,136,16,250,32,30,207,173
  36. 35 DATA139,207,24,105,40,141,139,207,144,3,238,140,207,206,204,206,174
  37. 36 DATA204,206,16,221,96
  38. 38 :
  39. 40 REM ******************************
  40. 50 REM ** DEMO PROGRAM STARTS HERE **
  41. 60 REM ******************************
  42. 70 :
  43. 80 X=10:Y=13:POKE787,40:POKE53280,6
  44. 90 PRINT"[147]":GOSUB480:PRINTTAB(132)" ITS CURTAINS "
  45. 100 PRINTTAB(12)" BY BOB KOBER "
  46. 110 PRINTTAB(82)"THIS IS A DEMO OF THE 'ITS CURTAINS'"
  47. 120 PRINTTAB(42)"PROGRAM. PRESS THE SPACE BAR TO "
  48. 130 PRINTTAB(42)"CLOSE, OPEN, LOWER, AND RAISE THE "
  49. 140 PRINTTAB(42)"CURTAINS. TO STOP HIT RUN/STOP "
  50. 150 PRINTTAB(42)"RESTORE. THEN LIST AND EXAMINE ."
  51. 160 IFBOBTHENX=24-X:POKE2,X:SYS52806:REM RAISE CURTAIN
  52. 170 GETA$:ON-(A$<>" ")GOTO170
  53. 180 :
  54. 190 SYS52803 :REM CLOSE CURTAINS
  55. 200 :
  56. 210 REM * SET CHARACTER COLOR THE SAME
  57. 220 REM * AS THE BACKGROUND COLOR.
  58. 230 POKE646,PEEK(53281)
  59. 240 :
  60. 250 REM * PREPARE NEW SCREEN
  61. 260 :
  62. 270 PRINT"[147]":GOSUB480:PRINTTAB(134)"TEST MENU"
  63. 280 PRINTTAB(128)"1. DO THIS HERE THING"
  64. 290 PRINTTAB(48)"2. DO THAT THERE THING"
  65. 300 PRINTTAB(48)"3. GO HERE AND COME BACK"
  66. 310 PRINTTAB(48)"4. GO THERE AND STAY"
  67. 320 PRINTTAB(48)"5. THIS MENU MAKES NO SENSE"
  68. 330 PRINTTAB(48)"6. :) :) :)
  69. 340 :
  70. 350 [161]A$:[145][171](A$[179][177]" ")[137]350
  71. 360 :
  72. 370 Y[178]20[171]Y:[151]2,Y:[143] SET NEW COLOR TO YELLOW
  73. 380 :
  74. 390 [158]52800:[143] OPEN CURTAIN
  75. 400 :
  76. 410 [161]A$:[145][171](A$[179][177]" ")[137]410
  77. 420 :
  78. 430 [158]52809:[143] LOWER CURTAIN
  79. 440 :
  80. 450 [161]A$:[145][171](A$[179][177]" ")[137]450
  81. 460 :
  82. 470 [151]646,[194](53281):BOB[178]34:[137]90
  83. 480 [129]I[178]1024[164]I[170]40:[151]I,86:[130]
  84. 490 [129]I[178]1063[164]2023[169]40:[151]I,86:[130]
  85. 500 [129]I[178]2023[164]1984[169][171]1:[151]I,86:[130]
  86. 510 [129]I[178]1984[164]1024[169][171]40:[151]I,86:[130]:[142]
  87.